home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / src / wangisrc.lha / wangi / z / SM / SMPrefs / SMPrefs.h < prev    next >
Text File  |  1995-07-11  |  4KB  |  173 lines
  1. {$DEFINE PREFSEDITOR}
  2.  
  3. TYPE
  4.     pMyNode = ^tMyNode;
  5.     tMyNode = record
  6.         LSK_Node     : tNode; { system node structure }
  7.         LSK_Name     : string[31];
  8.         LSK_Cmd      : array[0..1] of string[181];
  9.         LSK_Key      : string[2];
  10.         LSK_RexxCmd  : string[180];
  11.         LSK_RexxPort : String[25];
  12.         LSK_Stack,
  13.         LSK_Priority : LongInt;
  14.         LSK_ASynch   : Boolean;
  15.         LSK_OutPut   : String[180];
  16.         LSK_Quit     : Boolean;
  17.         LSK_NewShell : Boolean;
  18.         LSK_ShellFrom,
  19.         LSK_ShellWin : String[80];
  20.     end;
  21.  
  22. CONST
  23.  
  24.     { Gadget ID's }
  25.     G_NI        = 1; { NULL initialised gadget   }
  26.     { Button gadgets }
  27.     G_B_TOP     = 2;
  28.     G_B_UP      = 3;
  29.     G_B_DOWN    = 4;
  30.     G_B_BOTTOM  = 5;
  31.     G_B_SORT    = 6;
  32.     G_B_NEW     = 7;
  33.     G_B_REMOVE  = 8;
  34.     G_B_COPY    = 9;
  35.     G_B_SAVE    = 10;
  36.     G_B_CANCEL  = 11;
  37.     { listview gadget }
  38.     G_LV        = 12;
  39.     G_C_SET     = 13;
  40.     { CreateContext() gadget }
  41.     G_CC        = 14; 
  42.     
  43.     { Menu identifiers }
  44.     MM_PROJ = 0;
  45.     MI_OPEN = 0;
  46.     MI_SAVA = 1;
  47.     MI_TEST = 2;
  48.     MI_INFO = 4;
  49.     MI_QUIT = 6;
  50.     MM_EDIT = 1;
  51.     MI_RDEF = 0;
  52.     MI_REST = 1;
  53.     
  54.     { Setting identifiers }
  55.     C_REXX = 0;
  56.     C_FONT = 1;
  57.     C_PALT = 2;
  58.     C_QUAL = 3;
  59.     C_SCRN = 4;
  60.     C_SMID = 5;
  61.     C_SFNT = 6;
  62.     C_SYSS = 7;
  63.     C_TITL = 8;
  64.     LabMax = 8;
  65.     
  66.     
  67.  
  68.     { size labels }
  69.  
  70.     S_Gad_H   = 1;
  71.     S_G1_L    = 2;
  72.     S_G2_L    = 3;
  73.     S_G3_L    = 4;
  74.     S_WB_T    = 6;
  75.     S_WB_L    = 7;
  76.     S_WB_R    = 8;
  77.     S_WB_B    = 9;
  78.     S_G1_W    = 10;
  79.     S_G2_W    = 11;
  80.     S_G3_W    = 12;
  81.     S_G_H     = 13;
  82.     S_LV_H    = 14;
  83.     TBS       = 15;
  84.     extra     = 16;
  85.     S_SCRID_W = 17;
  86.     TxtWin_L  = 18;
  87.     RexxWin_L = 19;
  88.     Synch_W   = 20;
  89.     SOTxt_W   = 21;
  90.     QTxt_W    = 22;
  91.     S_CM_W    = 23;
  92.  
  93.     G_B_BOTTOMtxt : string[8]  = '_Bottom'#0;
  94.     G_B_TOPtxt    : string[5]  = '_Top'#0;
  95.     G_B_UPtxt     : string[4]  = '_Up'#0;
  96.     G_B_DOWNtxt   : string[6]  = 'Do_wn'#0;
  97.     G_B_SORTtxt   : string[5]  = 'Sort'#0;
  98.     G_B_NEWtxt    : string[5]  = '_New'#0;
  99.     G_B_REMOVEtxt : string[8]  = 'Remo_ve'#0;
  100.     G_B_COPYtxt   : string[6]  = 'Cop_y'#0;
  101.     G_B_SAVEtxt   : string[6]  = '_Save'#0;
  102.     G_B_CANCELtxt : string[8]  = '_Cancel'#0;
  103.     Sampstr       : string[25] = 'XxXxXxXxXxXxXxXxXxXxXxX'#0;
  104.     SampStr2      : String[5] = '337'#0;
  105.     PREFSNAME     : string[18] = 'Startup-Menu.prefs';
  106.     PREFSDIRH     : string[02] = 'S:';
  107.     vi            : pointer = NIL;
  108.     TheWindow     : pWindow = NIL;
  109.     CurrentTop    : Longint = 0;
  110.     CurrentOrd    : Longint = -1;
  111.     Listviewrows  : Longint = 20;
  112.     ZoomSizes     : Array[0..3] of Integer = (-1,-1,200,0);
  113.     RememberKey   : pRemember = NIL;
  114.     Curset        : LONG = 0;
  115.    
  116. { global variables }      
  117. Var
  118.     SetList      : pList;
  119.     Gads         : Array [G_NI..G_CC] Of pGadget;
  120.     Gadgetflags  : tNewGadget;
  121.     My_Font      : tTextAttr;
  122.     Sizes        : Array[1..23] Of Integer;
  123.     DummyReq     : tRequester;
  124.     WindowIDCMP  : LONG;
  125.     CurrentList  : pList;
  126.     CurrentNode  : pMyNode;
  127.     pred, succ, 
  128.     tmpnode, 
  129.     newnode      : pMyNode;
  130.     i, oldord    : longint;
  131.     wl           : pointer;
  132.     tl           : long;
  133.     V39          : Boolean;
  134.     menuStrip    : pMenu;
  135.     Labs         : Array[0..9] of STRPTR;
  136.     
  137. { FORWARD our functions and procedures }
  138.  
  139. Function  GadEDWindow(Left, Top : Integer; node : pMyNode; RexxWished : Boolean) : Boolean; Forward;
  140. Function  Add_Name(name : string) : pMyNode; Forward;
  141. Procedure DetachObjectList; Forward;
  142. Procedure AttachObjectList; Forward;
  143. Procedure SortGadgetFunc; Forward;
  144. Function  CalcDown(across : integer; gad : pGadget; win : pWindow) : Longint; Forward;
  145. Procedure RexxEDWin(Left, Top : Integer; VAR Cmd1, RexxPort1, CMD2, 
  146.     RexxPort2, Cmd3, RexxPort3 : string; VAR RexxWished : Boolean); Forward;
  147. Procedure InitCD; Forward;
  148. Procedure Close_Window; Forward;
  149. Procedure HandleIDCMP; Forward;
  150. Procedure main; Forward;
  151. Procedure SysOptWin(Left, Top : Integer); Forward;
  152. Procedure QualWin(Left, Top : Integer); Forward;
  153. Procedure RefreshWin(Window : pWindow); Forward;
  154. Function  open_window : Boolean; Forward;
  155. Function  Open_Libs : Boolean; Forward;
  156. Procedure Close_Libs; Forward;
  157. Procedure DisableGadget(g : pGadget; w : pWindow; Disable : byte); Forward;
  158. function  CStrConstPtrAR(rk : ppRemember; s : string) : pointer; Forward;
  159. Function  Execsynch(cmd : STRPTR) : Boolean; Forward;
  160. Function  UpperStr(s:String):String;Forward;
  161. Procedure SWWindow(Left, Top : Integer); Forward;
  162.  
  163. {$I Version.h            }
  164.                           {sI Reg.PAS              }
  165. {$I Config.PAS           }
  166. {$I List.PAS             }
  167. {$I Library.PAS          }
  168. {$I Window_Main.PAS      }
  169. {$I Window_GadgetED.PAS  }
  170. {$I Window_Rexx.PAS      }
  171. {$I Window_SysOpt.PAS    }
  172. {$I Window_Qualifier.PAS }
  173. {$I Window_S+W.PAS        }